home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / Hyperj-Hz / HyperRecipe.cpt / HyperRecipe / background_2609.txt < prev    next >
Text File  |  1990-12-13  |  17KB  |  651 lines
  1. -- background: 2609 from stack: in
  2. -- bmap block id: 4567
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: 
  6. ----- HyperTalk script -----
  7. on openBackground
  8.   push recent card
  9. end openBackground
  10.  
  11. on EnterKey
  12.   click at location of background button ID 24
  13. end Enterkey
  14.  
  15. on opencard
  16.   get background field rating
  17.   set lockscreen to true
  18.   set hilite of background button ID 27 to false
  19.   set hilite of background button ID 28 to false
  20.   set hilite of background button ID 29 to false
  21.   set hilite of background button ID 30 to false
  22.   set hilite of background button ID 31 to false
  23.   set hilite of background button ID 32 to false
  24.  
  25.   set hilite of background button ID 33 to false
  26.   set hilite of background button ID 34 to false
  27.   set hilite of background button ID 35 to false
  28.   set hilite of background button ID 36 to false
  29.   set hilite of background button ID 37 to false
  30.   set hilite of background button ID 38 to false
  31.   set hilite of background button ID 39 to false
  32.   set hilite of background button ID 40 to false
  33.   set hilite of background button ID 41 to false
  34.   set hilite of background button ID 42 to true
  35.  
  36.   put field rating + 27 into butid
  37.   set hilite of background button ID butid to true
  38.  
  39.   get background field catagories
  40.   if it is not empty then
  41.     set hilite of background button ID 42 to false
  42.     if it contains "App" then set hilite of background button ID 33 to true
  43.     if it contains "Bev" then set hilite of background button ID 34 to true
  44.     if it contains "Bre" then set hilite of background button ID 35 to true
  45.     if it contains "Bru" then set hilite of background button ID 36 to true
  46.     if it contains "Cak" then set hilite of background button ID 37 to true
  47.     if it contains "Des" then set hilite of background button ID 38 to true
  48.     if it contains "Main" then set hilite of background button ID 39 to true
  49.     if it contains "Sou" then set hilite of background button ID 40 to true
  50.     if it contains "Veg" then set hilite of background button ID 41 to true
  51.  
  52.   end if
  53.  
  54.   set lockscreen to false
  55. end opencard
  56.  
  57.  
  58. on closeCard
  59.   if field "Recipe Title" is "" then
  60.     put " " into field "Recipe Title"
  61.     beep
  62.     answer "This card has no title...It will be deleted!" with "Keep it" or "OK"
  63.     if it is "OK" then
  64.       domenu delete card
  65.     end if
  66.   else
  67.     put "" into field catagories
  68.     if hilite of background button ID 33 is true then put "Appetizers " into field Catagories
  69.     if hilite of background button ID 34 is true then put "Beverages " after field Catagories
  70.     if hilite of background button ID 35 is true then put "Breads " after field Catagories
  71.     if hilite of background button ID 36 is true then put "Brunches " after field Catagories
  72.     if hilite of background button ID 37 is true then put "Cakes Pies " after field Catagories
  73.     if hilite of background button ID 38 is true then put "Desserts " after field Catagories
  74.     if hilite of background button ID 39 is true then put "Main Courses " after field Catagories
  75.     if hilite of background button ID 40 is true then put "Soups Salads " after field Catagories
  76.     if hilite of background button ID 41 is true then put "Vegetables " after field Catagories
  77.     if field catagories is "" then set hilite of background button ID 42 to true
  78.  
  79.   end if
  80.  
  81. end closecard
  82.  
  83.  
  84.  
  85. -- part 6 (button)
  86. -- low flags: 00
  87. -- high flags: 0000
  88. -- rect: left=72 top=299 right=324 bottom=99
  89. -- title width / last selected line: 0
  90. -- icon id / first selected line: 1014 / 1014
  91. -- text alignment: 1
  92. -- font id: 0
  93. -- text size: 12
  94. -- style flags: 0
  95. -- line height: 16
  96. -- part name: Prev
  97. ----- HyperTalk script -----
  98. on mouseUp
  99.   visual effect wipe right
  100.   go to previous card
  101. end mouseUp
  102.  
  103.  
  104.  
  105. -- part 7 (button)
  106. -- low flags: 00
  107. -- high flags: 0000
  108. -- rect: left=98 top=299 right=324 bottom=125
  109. -- title width / last selected line: 0
  110. -- icon id / first selected line: 1013 / 1013
  111. -- text alignment: 1
  112. -- font id: 0
  113. -- text size: 12
  114. -- style flags: 0
  115. -- line height: 16
  116. -- part name: Next
  117. ----- HyperTalk script -----
  118. on mouseUp
  119.   visual effect wipe left
  120.   go to next card
  121. end mouseUp
  122.  
  123.  
  124.  
  125. -- part 8 (button)
  126. -- low flags: 00
  127. -- high flags: 0000
  128. -- rect: left=16 top=299 right=324 bottom=45
  129. -- title width / last selected line: 0
  130. -- icon id / first selected line: 21700 / 21700
  131. -- text alignment: 1
  132. -- font id: 0
  133. -- text size: 12
  134. -- style flags: 0
  135. -- line height: 16
  136. -- part name: Home
  137. ----- HyperTalk script -----
  138. on mouseUp
  139.   visual effect iris open
  140.   go Home
  141. end mouseUp
  142.  
  143.  
  144.  
  145. -- part 16 (field)
  146. -- low flags: 00
  147. -- high flags: 0000
  148. -- rect: left=133 top=33 right=68 bottom=493
  149. -- title width / last selected line: 0
  150. -- icon id / first selected line: 0 / 0
  151. -- text alignment: 1
  152. -- font id: 33
  153. -- text size: 14
  154. -- style flags: 0
  155. -- line height: 17
  156. -- part name: Recipe Title
  157.  
  158.  
  159. -- part 17 (field)
  160. -- low flags: 00
  161. -- high flags: 0002
  162. -- rect: left=139 top=97 right=125 bottom=483
  163. -- title width / last selected line: 0
  164. -- icon id / first selected line: 0 / 0
  165. -- text alignment: 0
  166. -- font id: 3
  167. -- text size: 10
  168. -- style flags: 0
  169. -- line height: 13
  170. -- part name: Keywords
  171.  
  172.  
  173. -- part 18 (field)
  174. -- low flags: 00
  175. -- high flags: 0002
  176. -- rect: left=140 top=149 right=164 bottom=409
  177. -- title width / last selected line: 0
  178. -- icon id / first selected line: 0 / 0
  179. -- text alignment: 0
  180. -- font id: 3
  181. -- text size: 10
  182. -- style flags: 0
  183. -- line height: 13
  184. -- part name: Book Title
  185.  
  186.  
  187. -- part 19 (field)
  188. -- low flags: 00
  189. -- high flags: 0002
  190. -- rect: left=422 top=149 right=164 bottom=483
  191. -- title width / last selected line: 0
  192. -- icon id / first selected line: 0 / 0
  193. -- text alignment: 1
  194. -- font id: 3
  195. -- text size: 10
  196. -- style flags: 0
  197. -- line height: 13
  198. -- part name: Page No
  199.  
  200.  
  201. -- part 20 (field)
  202. -- low flags: 00
  203. -- high flags: 0002
  204. -- rect: left=140 top=190 right=244 bottom=484
  205. -- title width / last selected line: 0
  206. -- icon id / first selected line: 0 / 0
  207. -- text alignment: 0
  208. -- font id: 3
  209. -- text size: 10
  210. -- style flags: 0
  211. -- line height: 13
  212. -- part name: Comments
  213.  
  214.  
  215. -- part 21 (field)
  216. -- low flags: 01
  217. -- high flags: 0002
  218. -- rect: left=191 top=255 right=273 bottom=213
  219. -- title width / last selected line: 0
  220. -- icon id / first selected line: 0 / 0
  221. -- text alignment: 1
  222. -- font id: 0
  223. -- text size: 12
  224. -- style flags: 0
  225. -- line height: 16
  226. -- part name: Rating
  227.  
  228.  
  229. -- part 23 (button)
  230. -- low flags: 00
  231. -- high flags: A003
  232. -- rect: left=146 top=301 right=323 bottom=238
  233. -- title width / last selected line: 0
  234. -- icon id / first selected line: 0 / 0
  235. -- text alignment: 1
  236. -- font id: 0
  237. -- text size: 12
  238. -- style flags: 0
  239. -- line height: 16
  240. -- part name: Find
  241. ----- HyperTalk script -----
  242. on mouseUp
  243.   doMenu Find...
  244. end mouseUp
  245.  
  246.  
  247.  
  248. -- part 24 (button)
  249. -- low flags: 00
  250. -- high flags: A003
  251. -- rect: left=263 top=301 right=323 bottom=355
  252. -- title width / last selected line: 0
  253. -- icon id / first selected line: 0 / 0
  254. -- text alignment: 1
  255. -- font id: 0
  256. -- text size: 12
  257. -- style flags: 0
  258. -- line height: 16
  259. -- part name: New Card
  260. ----- HyperTalk script -----
  261. on mouseUp
  262.   get field "Book Title"
  263.   put it into Booktemp
  264.  
  265.   put empty into field catagories
  266.   if hilite of background button ID 33 is true then put "Appetizers " into field Catagories
  267.   if hilite of background button ID 34 is true then put "Beverages " after field Catagories
  268.   if hilite of background button ID 35 is true then put "Breads " after field Catagories
  269.   if hilite of background button ID 36 is true then put "Brunches " after field Catagories
  270.   if hilite of background button ID 37 is true then put "Cakes Pies " after field Catagories
  271.   if hilite of background button ID 38 is true then put "Desserts " after field Catagories
  272.   if hilite of background button ID 39 is true then put "Main Courses " after field Catagories
  273.   if hilite of background button ID 40 is true then put "Soups Salads " after field Catagories
  274.   if hilite of background button ID 41 is true then put "Vegetables " after field Catagories
  275.   if field catagories is empty then set hilite of background button ID 42 to true
  276.  
  277.   get field "Catagories"
  278.   put it into Cattemp
  279.   doMenu "New Card"
  280.   put Cattemp into field "Catagories"
  281.   put booktemp into field "Book Title"
  282.   put "" into field "Recipe Title"
  283.   put "" into field "Keywords"
  284.   put "" into field "Page No"
  285.   put "" into field "Comments"
  286.   click at loc of background button ID 27
  287.   set hilite of background button ID 27 to true
  288.  
  289.   get background field catagories
  290.   if it is not empty then
  291.     set hilite of background button ID 42 to false
  292.     if it contains "App" then set hilite of background button ID 33 to true
  293.     if it contains "Bev" then set hilite of background button ID 34 to true
  294.     if it contains "Bre" then set hilite of background button ID 35 to true
  295.     if it contains "Bru" then set hilite of background button ID 36 to true
  296.     if it contains "Cak" then set hilite of background button ID 37 to true
  297.     if it contains "Des" then set hilite of background button ID 38 to true
  298.     if it contains "Main" then set hilite of background button ID 39 to true
  299.     if it contains "Sou" then set hilite of background button ID 40 to true
  300.     if it contains "Veg" then set hilite of background button ID 41 to true
  301.   end if
  302.  
  303.   type tab
  304. end mouseUp
  305.  
  306.  
  307.  
  308. -- part 25 (button)
  309. -- low flags: 00
  310. -- high flags: A003
  311. -- rect: left=384 top=301 right=323 bottom=476
  312. -- title width / last selected line: 0
  313. -- icon id / first selected line: 0 / 0
  314. -- text alignment: 1
  315. -- font id: 0
  316. -- text size: 12
  317. -- style flags: 0
  318. -- line height: 16
  319. -- part name: Delete Card
  320. ----- HyperTalk script -----
  321. on mouseUp
  322.   beep
  323.   answer "Do you really want to delete this card?" with "Yes" or "No"
  324.   if it is "Yes" then domenu delete card
  325. end mouseUp
  326.  
  327.  
  328.  
  329. -- part 26 (field)
  330. -- low flags: 81
  331. -- high flags: 4000
  332. -- rect: left=16 top=76 right=282 bottom=121
  333. -- title width / last selected line: 0
  334. -- icon id / first selected line: 0 / 0
  335. -- text alignment: 0
  336. -- font id: 3
  337. -- text size: 12
  338. -- style flags: 0
  339. -- line height: 16
  340. -- part name: Catagories
  341.  
  342.  
  343. -- part 27 (button)
  344. -- low flags: 00
  345. -- high flags: A006
  346. -- rect: left=252 top=253 right=275 bottom=288
  347. -- title width / last selected line: 0
  348. -- icon id / first selected line: 0 / 0
  349. -- text alignment: 1
  350. -- font id: 0
  351. -- text size: 12
  352. -- style flags: 0
  353. -- line height: 16
  354. -- part name: ?
  355. ----- HyperTalk script -----
  356. on mouseUp
  357.   put "" into background field rating
  358.   set hilite of background button ID 27 to true
  359.   set hilite of background button ID 28 to false
  360.   set hilite of background button ID 29 to false
  361.   set hilite of background button ID 30 to false
  362.   set hilite of background button ID 31 to false
  363.   set hilite of background button ID 32 to false
  364. end mouseUp
  365.  
  366.  
  367.  
  368. -- part 28 (button)
  369. -- low flags: 00
  370. -- high flags: A006
  371. -- rect: left=300 top=253 right=275 bottom=336
  372. -- title width / last selected line: 0
  373. -- icon id / first selected line: 0 / 0
  374. -- text alignment: 1
  375. -- font id: 0
  376. -- text size: 12
  377. -- style flags: 0
  378. -- line height: 16
  379. -- part name: 1
  380. ----- HyperTalk script -----
  381. on mouseUp
  382.   put 1 into background field rating
  383.   set hilite of background button ID 27 to false
  384.   set hilite of background button ID 28 to true
  385.   set hilite of background button ID 29 to false
  386.   set hilite of background button ID 30 to false
  387.   set hilite of background button ID 31 to false
  388.   set hilite of background button ID 32 to false
  389. end mouseUp
  390.  
  391.  
  392.  
  393. -- part 29 (button)
  394. -- low flags: 00
  395. -- high flags: E006
  396. -- rect: left=337 top=253 right=275 bottom=373
  397. -- title width / last selected line: 0
  398. -- icon id / first selected line: 0 / 0
  399. -- text alignment: 1
  400. -- font id: 0
  401. -- text size: 12
  402. -- style flags: 0
  403. -- line height: 16
  404. -- part name: 2
  405. ----- HyperTalk script -----
  406. on mouseUp
  407.   put 2 into background field rating
  408.   set hilite of background button ID 27 to false
  409.   set hilite of background button ID 28 to false
  410.   set hilite of background button ID 29 to true
  411.   set hilite of background button ID 30 to false
  412.   set hilite of background button ID 31 to false
  413.   set hilite of background button ID 32 to false
  414. end mouseUp
  415.  
  416.  
  417.  
  418. -- part 30 (button)
  419. -- low flags: 00
  420. -- high flags: A006
  421. -- rect: left=374 top=253 right=275 bottom=410
  422. -- title width / last selected line: 0
  423. -- icon id / first selected line: 0 / 0
  424. -- text alignment: 1
  425. -- font id: 0
  426. -- text size: 12
  427. -- style flags: 0
  428. -- line height: 16
  429. -- part name: 3
  430. ----- HyperTalk script -----
  431. on mouseUp
  432.   put 3 into background field rating
  433.   set hilite of background button ID 27 to false
  434.   set hilite of background button ID 28 to false
  435.   set hilite of background button ID 29 to false
  436.   set hilite of background button ID 30 to true
  437.   set hilite of background button ID 31 to false
  438.   set hilite of background button ID 32 to false
  439. end mouseUp
  440.  
  441.  
  442.  
  443. -- part 31 (button)
  444. -- low flags: 00
  445. -- high flags: A006
  446. -- rect: left=411 top=253 right=275 bottom=447
  447. -- title width / last selected line: 0
  448. -- icon id / first selected line: 0 / 0
  449. -- text alignment: 1
  450. -- font id: 0
  451. -- text size: 12
  452. -- style flags: 0
  453. -- line height: 16
  454. -- part name: 4
  455. ----- HyperTalk script -----
  456. on mouseUp
  457.   put 4 into background field rating
  458.   set hilite of background button ID 27 to false
  459.   set hilite of background button ID 28 to false
  460.   set hilite of background button ID 29 to false
  461.   set hilite of background button ID 30 to false
  462.   set hilite of background button ID 31 to true
  463.   set hilite of background button ID 32 to false
  464. end mouseUp
  465.  
  466.  
  467.  
  468. -- part 32 (button)
  469. -- low flags: 00
  470. -- high flags: A006
  471. -- rect: left=448 top=253 right=275 bottom=484
  472. -- title width / last selected line: 0
  473. -- icon id / first selected line: 0 / 0
  474. -- text alignment: 1
  475. -- font id: 0
  476. -- text size: 12
  477. -- style flags: 0
  478. -- line height: 16
  479. -- part name: 5
  480. ----- HyperTalk script -----
  481. on mouseUp
  482.   put 5 into background field rating
  483.   set hilite of background button ID 27 to false
  484.   set hilite of background button ID 28 to false
  485.   set hilite of background button ID 29 to false
  486.   set hilite of background button ID 30 to false
  487.   set hilite of background button ID 31 to false
  488.   set hilite of background button ID 32 to true
  489. end mouseUp
  490.  
  491.  
  492.  
  493. -- part 33 (button)
  494. -- low flags: 00
  495. -- high flags: A005
  496. -- rect: left=16 top=82 right=104 bottom=110
  497. -- title width / last selected line: 0
  498. -- icon id / first selected line: 0 / 0
  499. -- text alignment: 1
  500. -- font id: 0
  501. -- text size: 12
  502. -- style flags: 0
  503. -- line height: 16
  504. -- part name: Appetizers
  505.  
  506.  
  507. -- part 34 (button)
  508. -- low flags: 00
  509. -- high flags: A005
  510. -- rect: left=16 top=102 right=124 bottom=108
  511. -- title width / last selected line: 0
  512. -- icon id / first selected line: 0 / 0
  513. -- text alignment: 1
  514. -- font id: 0
  515. -- text size: 12
  516. -- style flags: 0
  517. -- line height: 16
  518. -- part name: Beverages
  519.  
  520.  
  521. -- part 35 (button)
  522. -- low flags: 00
  523. -- high flags: A005
  524. -- rect: left=16 top=122 right=144 bottom=85
  525. -- title width / last selected line: 0
  526. -- icon id / first selected line: 0 / 0
  527. -- text alignment: 1
  528. -- font id: 0
  529. -- text size: 12
  530. -- style flags: 0
  531. -- line height: 16
  532. -- part name: Breads
  533.  
  534.  
  535. -- part 36 (button)
  536. -- low flags: 00
  537. -- high flags: A005
  538. -- rect: left=16 top=142 right=164 bottom=100
  539. -- title width / last selected line: 0
  540. -- icon id / first selected line: 0 / 0
  541. -- text alignment: 1
  542. -- font id: 0
  543. -- text size: 12
  544. -- style flags: 0
  545. -- line height: 16
  546. -- part name: Brunches
  547.  
  548.  
  549. -- part 37 (button)
  550. -- low flags: 00
  551. -- high flags: A005
  552. -- rect: left=16 top=162 right=184 bottom=116
  553. -- title width / last selected line: 0
  554. -- icon id / first selected line: 0 / 0
  555. -- text alignment: 1
  556. -- font id: 0
  557. -- text size: 12
  558. -- style flags: 0
  559. -- line height: 16
  560. -- part name: Cakes/Pies
  561.  
  562.  
  563. -- part 38 (button)
  564. -- low flags: 00
  565. -- high flags: A005
  566. -- rect: left=16 top=182 right=204 bottom=98
  567. -- title width / last selected line: 0
  568. -- icon id / first selected line: 0 / 0
  569. -- text alignment: 1
  570. -- font id: 0
  571. -- text size: 12
  572. -- style flags: 0
  573. -- line height: 16
  574. -- part name: Desserts
  575.  
  576.  
  577. -- part 39 (button)
  578. -- low flags: 00
  579. -- high flags: E005
  580. -- rect: left=16 top=202 right=224 bottom=127
  581. -- title width / last selected line: 0
  582. -- icon id / first selected line: 0 / 0
  583. -- text alignment: 1
  584. -- font id: 0
  585. -- text size: 12
  586. -- style flags: 0
  587. -- line height: 16
  588. -- part name: Main Courses
  589.  
  590.  
  591. -- part 40 (button)
  592. -- low flags: 00
  593. -- high flags: A005
  594. -- rect: left=16 top=222 right=244 bottom=127
  595. -- title width / last selected line: 0
  596. -- icon id / first selected line: 0 / 0
  597. -- text alignment: 1
  598. -- font id: 0
  599. -- text size: 12
  600. -- style flags: 0
  601. -- line height: 16
  602. -- part name: Soups/Salads
  603.  
  604.  
  605. -- part 41 (button)
  606. -- low flags: 00
  607. -- high flags: A005
  608. -- rect: left=16 top=242 right=264 bottom=116
  609. -- title width / last selected line: 0
  610. -- icon id / first selected line: 0 / 0
  611. -- text alignment: 1
  612. -- font id: 0
  613. -- text size: 12
  614. -- style flags: 0
  615. -- line height: 16
  616. -- part name: Vegetables
  617.  
  618.  
  619. -- part 42 (button)
  620. -- low flags: 00
  621. -- high flags: A005
  622. -- rect: left=16 top=262 right=284 bottom=78
  623. -- title width / last selected line: 0
  624. -- icon id / first selected line: 0 / 0
  625. -- text alignment: 1
  626. -- font id: 0
  627. -- text size: 12
  628. -- style flags: 0
  629. -- line height: 16
  630. -- part name: Other
  631.  
  632.  
  633. -- part 46 (button)
  634. -- low flags: 00
  635. -- high flags: 0000
  636. -- rect: left=44 top=299 right=324 bottom=69
  637. -- title width / last selected line: 0
  638. -- icon id / first selected line: 6720 / 6720
  639. -- text alignment: 1
  640. -- font id: 0
  641. -- text size: 12
  642. -- style flags: 0
  643. -- line height: 16
  644. -- part name: New Button
  645. ----- HyperTalk script -----
  646. on mouseUp
  647.   go to card id 2983
  648. end mouseUp
  649.  
  650.  
  651.